home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / TURNON / SHARED.DIR / 00547_Script_547 < prev    next >
Text File  |  1995-05-31  |  599b  |  19 lines
  1. on CreditsInAWindow
  2.   global CreditsWindow
  3.   if objectP(CreditsWindow) then
  4.     forget CreditsWindow
  5.   end if
  6.   set horzOrigin to the stageleft + 68
  7.   set vertOrigin to the stageTop + 78
  8.   set myWindowRect to rect(horzOrigin,vertOrigin, horzOrigin + 320, vertOrigin + 240)
  9.   set CreditsWindow to window "Credits"
  10.   set the rect of CreditsWindow to myWindowRect
  11.   set the filename of CreditsWindow to "CREDITS.DIR"
  12.   set the titleVisible of CreditsWindow to true
  13.   set the modal of CreditsWindow to true
  14.   set the windowtype of CreditsWindow to 16
  15.   pause
  16.   open CreditsWindow
  17. end
  18.  
  19.